home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M9.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  5KB  |  149 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   TSTRING007(32)
  27.     (null)   001
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     Goto LABEL001
  32.     End
  33.     If (0 == 0) STRING001 = "NO"
  34.     If (0 == 1) STRING001 = "YES"
  35.  
  36.     EndFunc
  37.  
  38.     :LABEL001
  39.     TSTRING007(0) = "@X0CThere were strange noises in the corridors today...@X0F"
  40.     TSTRING007(1) = "@X0CScreams were heard coming from the lower levels!  Beware!@X0F"
  41.     TSTRING007(2) = "@X0CA new species of mutant has ben seen on the upper levels!@X0F"
  42.     TSTRING007(3) = "@X0CYesterday the Turbo-Lift was booby-trapped, watch your back!@X0F"
  43.     TSTRING007(4) = "@X0CA soldier was lost yesterday, Tortured to death...very messy, don't be next!@X0F"
  44.     TSTRING007(5) = "@X0CLoose lips sink starships, watch who you talk to!@X0F"
  45.     TSTRING007(6) = "@X0CAn armed man is a citizen, an unarmed man is a subject!@X0F"
  46.     TSTRING007(7) = "@X0CNuke 'em till they glow, then shoot them in the dark!@X0F"
  47.     TSTRING007(8) = "@X0CNuclear war is too important to leave to the Generals@X0F"
  48.     TSTRING007(9) = "@X0CHow come a pizza gets to your door faster than a Space Marine?@X0F"
  49.     TSTRING007(10) = "@X0CWhen in doubt, EMPTY THE CLIP!@X0F"
  50.     TSTRING007(11) = "@X0CNuke 'em 'til they glow, then shoot'em in the dark@X0F"
  51.     TSTRING007(12) = "@X0CAll stressed up and no one to choke ...@X0F"
  52.     TSTRING007(13) = "@X0CLuxuriantly hand-crafted from only the finest ASCII.@X0F"
  53.     TSTRING007(14) = "@X0CSome days you're the bug. Others, the windshield.@X0F"
  54.     TSTRING007(15) = "@X0CHow come pizza gets to your door faster than the OutBack Marines?@X0F"
  55.     TSTRING007(16) = "@X0CThe more corrupt the state, the more numerous the laws.@X0F"
  56.     TSTRING007(17) = "@X0CNobody expects the Spanish Inquisition!@X0F"
  57.     TSTRING007(18) = "@X0CT*A*N*S*T*A*A*F*L@X0F"
  58.     TSTRING007(19) = "@X0CPrinted on 100% recycled electrons.@X0F"
  59.     TSTRING007(20) = "@X0CA police state is great, as long as you are the police.@X0F"
  60.     TSTRING007(21) = "@X0C...Only Tyrants and Criminals need fear an armed citizen.@X0F"
  61.     TSTRING007(22) = "@X0CHe who gives up freedom for security deserves neither.@X0F"
  62.     TSTRING007(23) = "@X0CAn armed man is a citizen, an unarmed man is a subject.@X0F"
  63.     TSTRING007(24) = "@X0CRebellion under Tyranny is Obedience before God.@X0F"
  64.     TSTRING007(25) = "@X0COnly people can defend freedom, it isn't a government job@X0F"
  65.     TSTRING007(26) = "@X0CThe American Revolution was illegal till it was over!@X0F"
  66.     TSTRING007(27) = "@X0CIf it saves just one life, enslaving you was worth it.@X0F"
  67.     TSTRING007(28) = "@X0CLook for more excitement from PCS!@X0F"
  68.     TSTRING007(29) = "@X0C...nuke the site from orbit, it's the only way to be sure...@X0F"
  69.     TSTRING007(30) = "@X0CThe WHITE ZONE is for loading and unloading only... @X0F"
  70.     TSTRING007(31) = "@X0C...NEWS FLASH...Rouge Marine Kills 80!  Watch for Felix!...NEWS FLASH...@X0F"
  71.     TSTRING007(32) = "@X0C..." + Mixed(U_Name()) + " arrested for drunken brawling.  Serving 30 days!...@X0F"
  72.     TSTRING007(33) = "@X0CLove it, taste it, touch it, want it!  Be the weaponry!"
  73.     INTEGER001 = Random(33)
  74.     If (Exist(PPEPath() + "DAILY.NWS")) Then
  75.         Copy PPEPath() + "DAILY.NWS", PPEPath() + "YESTER.NWS"
  76.         Delete PPEPath() + "DAILY.NWS"
  77.     Endif
  78.     If (Exist(PPEPath() + "DAILY.NWS")) Goto LABEL002
  79.     001 = Date()
  80.     STRING003 = 001
  81.     STRING002 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  82.     STRING004 = Left(001, 4)
  83.     STRING005 = Mid(STRING003, 5, 2)
  84.     STRING006 = Right(STRING003, 2)
  85.     STRING003 = STRING004 + "." + STRING005 + "." + STRING006
  86.     FOpen 1, PPEPath() + "DAILY.NWS", 2, 0
  87.     FPutLn 1, "@CLS@"
  88.     FPutLn 1, "@X0BDAILY NEWS: @X0E", STRING003
  89.     FPutLn 1, STRING002
  90.     FPutLn 1, TSTRING007(INTEGER001)
  91.     FPutLn 1, STRING002
  92.     FClose 1
  93.     :LABEL002
  94.     FCloseAll
  95.     DCloseAll
  96.     End
  97.  
  98. ;------------------------------------------------------------------------------
  99. ;
  100. ; Usage report (before postprocessing)
  101. ;
  102. ; ■ Statements used :
  103. ;
  104. ;    2       End
  105. ;    3       Goto 
  106. ;    44      Let 
  107. ;    4       If 
  108. ;    1       FOpen 
  109. ;    1       FClose 
  110. ;    5       FPutLn 
  111. ;    1       Delete 
  112. ;    1       Copy 
  113. ;    1       FCloseAll
  114. ;    1       EndFunc
  115. ;    1       DCloseAll
  116. ;
  117. ;
  118. ; ■ Functions used :
  119. ;
  120. ;    12      +
  121. ;    2       ==
  122. ;    2       !
  123. ;    1       Mid()
  124. ;    1       Left()
  125. ;    1       Right()
  126. ;    1       Random()
  127. ;    1       Date()
  128. ;    1       U_Name()
  129. ;    6       PPEPath()
  130. ;    2       Exist()
  131. ;    1       Mixed()
  132. ;
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Analysis flags : No flag
  136. ;
  137. ;------------------------------------------------------------------------------
  138. ;
  139. ; Postprocessing report
  140. ;
  141. ;    0       For/Next
  142. ;    0       While/EndWhile
  143. ;    1       If/Then or If/Then/Else
  144. ;    0       Select Case
  145. ;
  146. ;------------------------------------------------------------------------------
  147. ;                 AEGiS Corp - Break the routines, code against the machines!
  148. ;------------------------------------------------------------------------------
  149.